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15. Subprimitivcs 

Subprimitivcs arc functions which arc not intended to be used by the average program, only 
by system programs. They allow one lo manipulate the environment at a level lower than normal 
Lisp. They arc described in this chapter. Subprimitivcs usually have names starting with a % 
character. The primitives described in other sections of the manual typically use subprimitivcs to 
accomplish their work. To some extent the subprimitivcs take the place of what in other systems 
would be individual machine instructions. Subprimitivcs arc normally hand-coded in microcode. 

There is plenty of stuff in this chapter that is not fully explained; there are terms that arc 
undefined, there are forward references, and so on. Lurthermorc, most of what is in here is 
considered subject to change without notice. In fact, this chapter docs not exactly belong in this 
manual, but in some other more low-level manual. Since the latter manual docs not exist, it is 
here for the interim. 

Subprimitivcs by their very nature cannot do full checking. Improper use of subprimitivcs can 
destroy the environment. Subprimitivcs come in varying degrees of dangerousness. Generally, 
those without a % sign in their name arc not directly dangerous, whereas those whose names 
begin with % can ruin the Lisp world just as readily as they can do something useful. The 
subprimitivcs arc documented here since they need to be documented somewhere, but this manual 
docs not document all the tilings you need to know in order to use them. Still other 
subprimitivcs are not documented here because they arc very specialized. Most of these are never 
used explicitly by a programmer; the compiler' inserts them into the program to perform 
operations which arc expressed differently in the source code. 

The most common problem you can cause using subprimitivcs, though by no means the only 
one, is to create illegal pointers: pointers that arc, for one reason or another, according to 
storage conventions, not allowed to exist. The storage conventions arc not documented; as we 
said, you have to be an expert to use a lot of the functions in this chapter correctly. If you 
create such an illegal pointer, it probably will not be detected immediately, but later on parts of 
the system may sec it, notice that it is illegal, and (probably) halt the Lisp Machine. 

In a certain sense car, cdr, rplaca, and rplacd arc subprimitives. If these are given a 
locative instead of a list, they access or modify the cell addressed by the locative without regard 
to what object the cell is inside. Subprimitives can be used to create locatives to strange places. 

15.1 Data Types 

data- type arg 

data-type returns a symbol that is the name for the internal data-type of arg. The type- 
of function (page 20) is a higher-level primitive that is more useful in most cases; normal 
programs should always use type-of (or, when appropriate, typep) rather than data-type. 

Note that some types as seen by the user arc not distinguished from each other at this 
level, and some user types may be represented by more than one internal type. For 
example, dtp-extended-number is the symbol that data-type would return for cither a 
single-float or a bignum, even though those two types arc quite different. 
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Sonic of these type codes occur in memory words but cannot be the type of an actual 
l.isp object. These include header types such as dtp- symbol -header, which identify the 
first word of a structure, and forwarding or "invisible" pointer types such as dtp-one-q- 
forward. 



dtp-symbol 
dtp -fix 

dtp-small-flonum 



The object is a symbol. 

The object is a fixnum; the numeric value is contained in the 
address field of the pointer. 

The object is a short float; the numeric value is contained in the 
address field of the pointer. 

dtp-extended-number flic object is a single-float, ratio, bignum or complcxnum. This 

value will also be used for future numeric types. 



dtp -character 

dtp -list 

dtp -locative 

dtp -array -pointer 

dtp -fef- pointer 

dtp-u-entry 

dtp-closure 

dtp-stack-closure 

dtp -instance 
dtp -entity 
dtp-select-method 
dtp-stack-group 



The object is a character object; the value is contained in the 
address field of the pointer. 

The object is a cons. 

The object is a locative pointer. 

The object is an array. 

Hie object is a compiled function. 

Hie object is a microcode entry. 

The object is a closure; see chapter 12, page 250. 

The object is a closure which lives inside a stack, and which 
must be copied if it is stored anywhere but farther down in die 
same stack. Lexical scoping is implemented using these. 

The object is an instance of a flavor; see chapter 21, page 401. 

The object is an entity; sec section 12.4, page 255. 

The object is a select-method; see page 232. 

The object is a stack-group; see chapter 13, page 256. 



The remaining types are internal only. 



dtp -header 

dtp -array -header 
dtp-symbol-header 

dtp -instance -header 
dtp-null 



An internal type used to mark the first word of several kinds of 
multi-word structure, including single-floats, ratios, bignums and 
FEFs. 

An internal type used to mark die first word of an array. 

An internal type used to mark the first word of a symbol. The 
pointer field points to the symbol's print-name, which is a string. 

An internal type used to mark the first word of an instance. 
The pointer field points to the structure that describes the 
instance's flavor. 

Nothing to do with nil. This type code identifies a void marker. 
An attempt to refer to the contents of a cell that contains a dtp- 
null signals an error. This is how "unbound variable" and 
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"undefined funciion" errors arc detected. 

dtp-trap I he zero data-type, which is not used. This hopes to detect 

microcode bugs. 

dtp-free This type is used to fill free storage, to catch wild references. 

dtp - external - val ue - cell - pointer 

An "imisiblc pointer" used for external value cells, which arc 
part of the closure mechanism (sec chapter 12. page 250), and 
used by compiled code to address value and function cells. 

dtp-self- ref-pointer An "invisible pointer" used to refer to an instance variable of 

self. This data type appears in ITTs of flavor methods. 

dtp- header-forward An "invisible pointer" used to indicate that the structure 

containing it has been moved elsewhere. The "header word" of 
the structure is replaced by one of these invisible pointers. Sec 
the function structure- forward (page 273). 

dtp -body -forward An "invisible pointer" used to indicate that the structure 

containing it has been moved elsewhere. This points to the word 
containing die header- forward, which points to the new copy of 
the structure. 

dtp-one-q -forward An "invisible pointer" used to indicate that the single cell 

containing it has been moved elsewhere. 

dtp -gc- forward This is used by the copying garbage collector to flag the obsolete 

copy of an object; it points to the new copy. 

q-data-types Constant 

The value of q-data-types is a list of all of the symbolic names for data types described 
above under data-type. These arc the symbols whose print names begin with 'dtp-'. 
The values of these symbols are the internal numeric data-type codes for the various types. 

q-data-types type-code 

Given the internal numeric data-type code, returns the corresponding symbolic name. 
This "function" is actually an array. 

15.2 Forwarding 

An invisible pointer or forwarding pointer is a kind of pointer that docs not represent a Lisp 
object, but just resides in memory. There are several kinds of invisible pointer, and dicre are 
various rules about where they may or may not appear. The basic property of an invisible pointer 
is that if die Lisp Machine reads a word of memory and finds an invisible pointer there, instead 
of seeing die invisible pointer as the result of the read, it docs a second read, at the location 
addressed by die invisible pointer, and returns that as the result instead. Writing behaves in a 
similar fashion. When the Lisp Machine writes a word of memory it first checks to see if that 
word contains an invisible pointer; if so it goes to the location pointed to by the invisible pointer 
and tries to write there instead. Many subprimitives that read and write memory do not do this 
checking. 
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The simplest kind of invisible pointer has the data type code dtp- one -q -forward. It is used 
to forward a single word of memory to someplace else. The invisible pointers with data types 
dtp -header -forward and dtp -body- forward arc used for moving whole Lisp objects (such as 
cons cells or arrays) somewhere else. The dtp-external-value-cell-pointer is very similar to the 
dtp-one-q-forward; the difference is that it is not "invisible" to the operation of binding. If the 
(internal) value cell of a symbol contains a dtp-external-value-cell-pointer that points to some 
other word (the external value cell), then symeval or set operations on the symbol consider the 
pointer to be invisible and use the external value cell, but binding the symbol saves away the 
dtp-external-value-cell-pointer itself, and stores the new value into the internal value cell of 
the symbol. This is how closures arc implemented. 

dtp -gc- forward is not an invisible pointer at all; it only appears in "old spaced" and can 
never be seen by any program other than the garbage collector. When an object is found not to 
be garbage, and the garbage collector moves it from "old space" to "new space", a dtp-gc- 
forward is left behind to point to the new copy of the object. This ensures that other references 
to the same object get the same new copy. 

structure-forward old-object new-object 

This causes references to old-object actually to reference new-object, by storing invisible 
pointers in old- object. It returns old- object. 

An example of the use of structure -forward is adjust-array. If the array is being made 
bigger and cannot be expanded' in place, anew array is allocated, the contents arc copied, 
and the old array is structure-forwarded to the new one. This forwarding ensures that 
pointers to the old array, or to cells within it, continue to work. When the garbage 
collector goes to copy the old array, it notices the forwarding and uses the new array as 
the copy; thus the overhead of forwarding disappears eventually if garbage collection is in 
use. 

follow-structure-forwardlng object 

Normally returns object, but if object has been structure -forward'ed, returns the object 
at die end of the chain of forwardings. If object is not exactly an object, but a locative 
to a cell in die middle of an object, a locative to the corresponding cell in die latest copy 
of the object is returned. 

forward- value-cell fivnrsymbol to-symbol 

This alters from-symbol so that it always has die same value as to-symbol, by sharing its 
value cell. A dtp-one-q-forward invisible pointer is stored into from-symboFs value cell. 
Do not do Uiis while from-symboFs current dynamic binding is not global, as the 
microcode docs not bother to check for tiiat case and something bad will happen when 
from-symboFs binding is unbound. The microcode check is omitted to speed up binding 
and unbinding. 

This is how synonymous variables (such as *terminal-io* and terminal -io) are created. 

To forward one arbitrary cell to another (rather than specifically one value cell to 
another), given two locatives, do 

(%p-store-tag-and-pointer locative! dtp-one-q-forward locative!) 
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follow-eell forwarding be evep-p 

be is a locathc to a cell. Normally be is returned, but if" the cell has been forwarded, 
this follows the chain of forwardings and returns a locative to the final cell. If the cell is 
part of a structure which has been forwarded, die chain of structure forwardings is 
followed, too. If evep-p is t, external value cell pointers arc followed; if it is nil they arc 
not. 



15.3 Pointer Manipulation 

It should again be emphasized that improper use of these functions can damage or destroy the 
Lisp environment. It is possible to create pointers with illegal data-type, pointers to non-existent 
objects, and pointers to untyped storage, which will completely confuse the garbage collector. 

%data-type x 

Returns the data-type field of x, as a fixnum. 

%po inter x 

Returns the pointer field of x, as a fixnum. For most types, this is dangerous since the 
garbage collector can copy die object and change its address. 

%make- pointer data- type pointer 

Makes up a pointer, with data-type in die data-type field and pointer in the pointer field, 
and returns it. data-type should be an internal numeric data-type code; these arc the 
values of the symbols that start with dtp-, pointer may be any object; its pointer field is 
used. This is most commonly used for changing the type of a pointer. Do not use this 
to make pointers which arc not allowed to be in the machine, such as dtp -null, invisible 
pointers, etc. 

%make- pointer-offset data-type pointer offset 

Returns a pointer with data-type in the data-type field, and pointer plus offset in the 
pointer field. The data-type and pointer arguments are like those of %make- pointer; 
offset may be any object but is usually a fixnum. The types of the arguments are not 
checked; dicir pointer fields arc simply added together. This is useful for constructing 
locative pointers into the middle of an object. However, note that it is illegal to have a 
pointer to untyped data, such as die inside of a FEF or a numeric array. 

%po1nter-d1fference pointer-l pointer-2 

Returns a fixnum which is pointer-l minus pointer-2. No type checks are made. For the 
result to be meaningful, the two pointers must point into the same object, so that their 
difference cannot change as a result of garbage collection. 

%po1nterp object 

t if object points to storage. For example, (%pointerp "foo") is t, but (%pointerp 5) is 
nil. 
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%po1nter-type-p data- type 

t if the specified data type is one which points to storage. For example, (%pointer-type- 
p dtp -fix) returns nil. 

15.4 Special Memory Referencing 

%p-po1nterp location 

t if the contents of the word at location points to storage. This is similar to (%pointerp 
(contects location)), but the latter may get an error if location contains a forwarding 
pointer, a header type, or a \oid marker. In such cases, %p-pointerp correctly tells you 
whether the header or forward points to storage. 

%p-po1nterp-offset location offset 

Similar to %p-pointerp but operates on the word offset words beyond location. 

%p-contents-offset base-pointer offset 

Returns the contents of the word offset words beyond base-pointer. This first checks the 
cell pointed to by base-pointer for a forwarding pointer. Having followed forwarding 
pointers to the real structure pointed to, it adds offset to the resulting forwarded base- 
pointer and returns the contents of that location. 

There is no %p -contents, since car performs that operation. 

%p-contents-safe-p location 

t if the contents of word location arc a valid Lisp object, at least as far as data type is 
concerned. It is nil if the word contains a header type, a forwarding pointer, or a void 
marker. If the value of this function is t, you will not get an error from (contents 
location). 

%p-contents-safe-p-offset location offset 

Similar to %p-contents-safe-p but operates on the word offset words beyond location. 

%p-con tents -as -locative pointer 

Given a pointer to a memory location containing a pointer that isn't allowed to be "in the 
machine" (typically an invisible pointer) this function returns the contents of the location 
as a dtp-locative. It changes the disallowed data type to dtp-locative so that you can 
safely look at it and sec what it points to. 

%p-contents-as-locative-offset base-pointer offset 

Extracts the contents of a word like %p-contents-offset, but changes it into a locative 
like %p-contents-as-locative. This can be used, for example, to analyze the dtp- 
external -value -cell -pointer pointers in a FEF, which are used by the compiled code to 
reference value cells and function cells of symbols. 
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%p- safe -con tents off set location offset 

Returns the contents of the word offset words beyond location as accurately as possible 
without getting an error. 

If the contents arc a valid I. isp object, it is returned exactly. 

If the contents arc not a valid I. isp object but do point to storage, the value returned is a 
locative which points to the same place in storage. 

If the contents arc not a valid Lisp object and do not point to storage, the value returned 
is a fixnum with the same pointer field. 

Forwarding pointers arc checked as in %p- contents -offset. 

%p- store -con tents pointer value 

Stores value into the data-type and pointer fields of the location addressed by pointer, and 
returns value. The cdr-codc field of the location remains unchanged. 

%p-store-contents-offset value base-pointer offset 

Stores value in the location offset beyond words beyond base-pointer, then returns value. 
The cdr-codc field remains unchanged. Forwarding pointers in the location at base-pointer 
arc handled as they are in %p- contents -offset. 

%p-store-tag-and-po1nter pointer miscfields pointerfield 

Stores miscfields and pointerfield into the location addressed by pointer. 25 bits arc taken 
from pointerfield to fill the pointer field of the location, and the low 7 bits of miscfields 
arc used to fill both the data-type and cdr-codc fields of the location. The low 5 bits of 
miscfields become the data-type, and the top two bits become the cdr-code. This is a 
good way to store a forwarding pointer from one structure to another (for example). 

%p-store-tag-and -pointer should be used only for storing into 'boxed' words, for the 
same reason as %blt-typed: the microcode could halt if the data stored is not valid 
boxed data. See page 280. 

%p-ldb byte-spec pointer 

Extracts a byte according to byte-spec from the contents of the location addressed by 
pointer, in effect regarding the contents as a 32-bit number and using Idb. The result is 
always a fixnum. For example, (%p-ldb %%q -cdr-code loc) returns the cdr-code of the 
location addressed by loc. 

%p-ldb-offset byte- spec base- pointer offset 

Extracts a byte according to byte-spec from the contents of the location offset words 
beyond base- pointer, after handling forwarding pointers like %p -contents -offset. 

This is the way to reference byte fields within a structure without violating system storage 
conventions. 
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%p -mask- field byte- spec pointer 

Like %p-ldb, except thai the selected byte is returned in its original position within the 
word instead of right-aligned. 

%p-mask-f leld-offset byte-spec base- pointer offset 

I .ike %p-ldb- offset, except that the selected byte is returned in its original position 
within the word instead of right-aligned. 

Note: %p-dbp. %p-dpb- offset. %p -deposit-field and %p- deposit -field -offset should 
never be used to modify the pointer field of a boxed word if the data type is one which actually 
points to storage, unless you are sure that the new pointer is such as to cause no trouble (such 
as, if it points to a static area). Likewise, it should never be used to change a data type which 
docs not point to storage into one which docs. Either action could confuse the garbage collector. 

%p-dpb value byte-spec pointer 

Stores value, a fixnum, into the byte selected by byte-spec in the word addressed by 
pointer, nil is returned. You can use this to alter data types, cdr-codes, etc., but sec the 
note above for restrictions. 

%p-dpb-offset value byte-spec base-pointer offset 

Stores value into the specified byte of die location offset words beyond that addressed by 
base- pointer, after first handling forwarding pointers in the location addressed by base- 
pointer as in %p-contents-offset. nil is returned. 

This is the way to alter unboxed data within a structure without violating system storage 
conventions. You can use this to alter boxed words too, but see the note above for 
restrictions. 

%p-depos1t-f 1eld value byte-spec pointer 

Like %p-dpb, except that the selected byte is stored from the corresponding bits of value 
rather than the right-aligned bits. See the note above %p-dpb for restrictions. 

%p-depo$1t-f1eld-offset value byte- spec base-pointer offset 

Like %p-dpb-offset, except that the selected byte is stored from die corresponding bits 
of value radicr than the right-aligned bits. Sec die note above %p-dpb for restrictions. 

%p- pointer pointer 

Extracts the pointer field of the contents of the location addressed by pointer and returns 
it as a fixnum. 

%p- data- type pointer 

Extracts the data-type field of the contents of the location addressed by pointer and returns 
it as a fixnum. 

%p-cdr-code pointer 

Extracts the cdr-code field of the contents of the location addressed by pointer and returns 
it as a fixnum. 
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%p- store-pointer pointer value 

Stores value in the pointer field of the loeation addressed by pointer, and returns value. 

%p- store -data- type pointer value 

Stores value in the data-type field of the loeation addressed by pointer, and returns value. 

%p-store-cdr-code pointer value 

Stores value in the cdr-codc field of the loeation addressed by pointer, and returns value. 

%$ tack-frame -pointer 

Returns a locative pointer to its caller's stack frame. This function is not defined in the 
interpreted I. isp environment; it only works in compiled code. Since it turns into a 
"misc" instruction, the "caller's stack frame" really means "the frame for the I'K1 ; that 
executed the %stack- frame -pointer instruction". 

15.5 Storage Layout Definitions 

The following special variables have values which define the most important attributes of die 
way l.isp data structures arc laid out in storage. In addition to the variables documented here, 
there arc many others that are more specialized. They are not documented in this manual since 
they arc in the system package rather than the global package. The variables whose names start 
with %% arc byte specifiers, intended to be used with subprimitives such as %p-ldb. If you 
change the value of any of these variables, you will probably bring the machine to a crashing 
halt. 

%%q-cdr-code Constant 

The field of a memory word that contains the cdr-code. See section 5.4, page 100. 

%%q--data-type Constant 

'Die field of a memory word that contains the data-type code. Sec page 270. 

%%q-po1nter Constant 

The field of a memory word that contains the pointer address, or immediate data. 

%%q-po1nter-w1th1n-page Constant 

The field of a memory word that contains the part of the address that lies within a single 
page. 

%%q- typed-polnter Constant 

The concatenation of the %%q -data-type and %%q- pointer fields. 

%%q--all-but-typed-po1nter Constant 

This is now synonymous with %%q-cdr-code, and therefore obsolete. 
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%%q-a1"l-but-po1nter Constant 

The concatenation of all fields of a memory word except for %%q-pointer. 

%%q-all-but-cdr-code Constant 

The concatenation of all fields of a memory word except for %%q-cdrcode. 

%%q-h1gh-half Constant 

%%q -low- half Constant 

The two halves of a memory word. These fields are only used in storing compiled code. 

cdr- normal Constant 

cdr-next Constant 

cdr -nil Constant 

cdr-error Constant 

The values of these four variables arc the numeric values that go in the cdr-codc field of 
a memory word. See section 5.4, page 100 for the details of cdr-coding. 

15.6 Analyzing Structures 

%f1nd- structure-header pointer 

This subprimitivc finds the structure into which pointer points, by searching backward for 
a header. It is a basic low-level function used by such tilings as the garbage collector. 
pointer is normally a locative, but its data-type is ignored. Note that it is illegal to point 
into an "unboxed" portion of a structure, for instance the middle of a numeric array. 

In structure space, the "containing structure" of a pointer is well-defined by system 
storage conventions. In list space, it is considered to be the contiguous, cdr-coded 
segment of list surrounding the location pointed to. If a cons of the list has been copied 
out by rplacd, the contiguous list includes that pair and ends at that point. 

%f1nd-structure-leader pointer 

This is identical to %find-structure-header, except that if the structure is an array with 
a leader, this returns a locative pointer to the leader-header, rather than returning the 
array-pointer itself. Thus the result of %find -structure-leader is always the lowest 
address in the structure. This is the one used internally by the garbage collector. 

%structure-boxed-s1ze object 

Returns the number of "boxed Q's" in object. This is die number of words at the front 
of the structure which contain normal Lisp objects. Some structures, for example FEFs 
and numeric arrays, contain additional "unboxed Q's" following their boxed Q's. Note 
that the boxed size of a PDL (either regular or special) docs not include Q's above die 
current top of the PDL. Those locations arc boxed, but their contents are considered 
garbage and are not protected by the garbage collector. 
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%structure-total-s1ze object 

Returns the total number of words occupied by the representation of object . including 
boxed Q"s, unboxed Q*s, and garbage Q*s off the ends of PDI.s. 

15.7 Creating Objects 

%a! locate- and- "initial 1ze data-type header-type header second-word area size 

This is the subprimitivc for creating most structured-type objects, area is the area in 
which it is to be created, as a fixnum or a symbol, size is the number of words to be 
allocated. The value returned points to the first word allocated and has data-type data- 
type. Unintcrruptibly, the words allocated arc initialized so that storage conventions arc 
preserved at all times. The first word, the header, is initialized to have header type in its 
data-type field and header in its pointer field. The second word is initialized to second- 
word. The remaining words are initialized to nil. 'Hie cdr-codes of all words except the 
last arc set to cdr-next; die cdr-codc of the last word is set to cdr-nil. It is probably a 
bad idea to rely on this. 

%allocate-and-1n1tial1ze-array header data-length leader-length area size 

This is the subprimitivc for creating arrays, called only by make-array. It is different 
from %allocate- and -initialize because arrays have a more complicated header structure. 

The basic functions for creating list- type objects arc cons and make -list; no special 
subprimitivc is needed. Closures, entities, and select-methods arc based on lists, but there is no 
primitive for creating them. To create one, create a list and then use %make- pointer to change 
the data type from dtp -list to the desired type. 

15.8 Copying Data 

%blt and %blt -typed are subprimitives for copying blocks of data, word aligned, from one 
place in memory to another with little or no type checking. 

%blt from to count increment 

%b It- typed from to count increment 

Copies count words, separated by increment. The word at address from is moved to 
address to, the word at address from + increment is moved to address to + increment, and 
so on until count words have been moved. 

Only the pointer fields of from and to are significant; they may be locatives or even 
fixnums. If one of them must point to the unboxed data in the middle of a structure, 
you must make it a fixnum, and you must do so with interrupts disabled, or else garbage 
collection could move the structure after you have already created the fixnum. 

%blt-typed assumes that each copied word contains a data type field and checks that 
field, interfacing suitably with the garbage collector if necessary. %blt does not check the 
data type fields of the copied words. 
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%blt may be used on any data except boxed data containing pointers to storage, while %blt- 
typed may be used on any boxed data. lioth %blt and %blt -typed can be used validly on data 
which is formatted with data types (boxed) but whose contents never point to storage. This 
includes words whose contents arc always fixnums or short floats, and also words which contain 
array headers, array leader headers, or l ; KK headers. Whether or not the machine is told to 
examine the data types of* such data makes no difference since, on examining them, it would 
decide that nothing needed to be done. 

lor unboxed data (data which is formatted not containing valid data type fields), such as the 
inside of a numeric array or the instruction words of a l-T'K only %blt may be used. If %blt- 
typed were used, it would examine the data type fields of the data words, and probably halt due 
to an invalid data type code. 

For boxed data which may contain pointers, only %blt-typed may be used. If %blt were 
used, it would appear to work, but problems could appear mysteriously later because nothing 
would notice the presence of the pointer there, l-'or example, the pointer might point to a 
bignum in the number consing area, and moving it in this way would foil to copy it into a 
nontemporary area. Then the pointer would become invalidated the next time the number consing 
area was emptied out. There could also be problems with lexical closures and with garbage 
collection. 

15.9 Returning Storage 

return-storage object 

This peculiar function attempts to return object to free storage. If it is a displaced array, 
Uiis returns the displaced array itself, not the data that the array points to. Currently 
return -storage docs nothing if the object is not at the end of its region, i.e. if it was not 
either the most recently allocated non-list object in its area, or the most recently allocated 
list in its area. 

If you still have any references to object anywhere in the Lisp world after this function 
returns, the garbage collector can get a fatal error if it sees them. Since the form that 
calls this function must get the object from somewhere, it may not be clear how to legally 
call return -storage. One of the only ways to do it is as follows: 
(defun func ( ) 

(let ((object (make-array 100))) 

(return-storage (progl object (setq object nil))))) 
so that the variable object docs not refer to the object when return -storage is called. 
Alternatively, you can free the object and get rid of all pointers to it while interrupts are 
turned off with without- interrupts. 

You should only call this function if you know what you arc doing; otherwise the garbage 
collector can get fatal errors. Be careful. 
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15.10 Locking Subprimitive 

%store-cond1t1onal pointer old new 

This is the basic locking primitive, pointer is a locative to a cell which is unintcrruptibly 
read and written. II' the contents of the cell is eq to old, then it is replaced by new and 
t is returned. Otherwise, nil is returned and the contents of the cell are not changed. 

Sec also store-conditional, a higher-level function which provides type checking (page 
688). 

15.1 1 CADR I/O Device Subprimitives 

The CADR processor has a 32-bit memory bus called the Xbus. In addition to main memory 
and TV screen memory, most I/O device registers arc on this bus. There is also a Unibus 
compatible with the PDP-11. A map of Xbus and Unibus addresses can be found in SYS: DOC; 
UNADDR TEXT. 

%un1 bus- read address 

Returns as a fixnurn the contents of the register at the specified Unibus address. You 
must specify a full 18-bit address. This is guaranteed to read the location only once. 
Since the Lisp Machine Unibus docs not support byte operations, this always references a 
16-bit word, and so address should normally be an even number. 

%un1bus-wr1te address data 

Writes the 16-bit number data at the specified Unibus address, exactly once. 

%xbus-read io-offset 

Returns the contents of the register at the specified Xbus address, io-offset is an offset 
into the I/O portion of Xbus physical address space. This is guaranteed to read the 
location exactly once. The returned value can be either a fixnurn or a bignum. 

%xbus-wr1te io-offset data 

Writes data, which can be a fixnurn or a bignum, into the register at the specified Xbus 
address, io-offset is an offset into the I/O portion of Xbus physical address space. This is 
guaranteed to write die location exactly once. 

sys:%xbus-wr1te-sync Woe w-data delay sync-loc sync-mask sync-value 

Docs (%xbus- write w-loc w-data), but first synchronizes to within about one microsecond 
of a certain condition. The synchronization is achieved by looping until 
(= (logand (7 xbus-read sync-loc) sync-mask) sync-value) 
is false, then looping until it is true, then looping delay times. Thus the write happens a 
specified delay after the leading edge of the synchronization condition. The number of 
microseconds of delay is roughly one third of delay. 

This primitive is used to alter the color TV screen's color map during vertical retrace. 
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15.12 Lambda I/O-Dcvice Subprimitives 

sys:%nubus-read slot by tr address 

Returns the contents of a word read from the Nu bus. Addresses on tlic Nu bus are 
divided into an 8-bit slot number which identifies which physical board is being referenced 
and a 24-bit address within slot. The address is measured in bytes and therefore should 
be a multiple of 4. Which addresses arc valid depends on thc\typc of board plugged into 
the specified slot. If, for example, the board is a 512k main ""memory board, then the 
valid address range from to 4 * (512k - 1). (Of course, main memory boards arc 
normally accessed through the virtual memory mechanism.) 

sys:%nubus-wr1te slot byte- address word 

Writes word into a word of the Nu bus, whose address is specified by slot and byte- 
address as described above. 

sys :%nubus-phys1cal -address apparent- physical-page 

The valid portions of the Nu bus address space arc not contiguous. Bach board is 
allocated 16m bytes of address space, but no memory board actually provides 16m bytes 
of memory. 

The Lisp Machine virtual memory system maps virtual addresses into a contiguous 
physical address space. On the Lambda, this contiguous address space is mapped a 
second time into the discontiguous Nu bus address space. Unlike die mapping of virtual 
addresses to physical ones, the second mapping is determined from the hardware 
configuration when die machine is booted and does not change during operation. 

This function performs exactly that mapping. The argument is a physical page number (a 
physical address divided by sys:page-size). The argument is a "Nu bus page number"; 
multiplied by sys:page-size and then by four, it yields die Nu bus byte address of the 
beginning of that physical page. 

Sec also sys:%physical -address, page 286. 

15.13 Function-Calling Subprimitives 

These subprimitives can be used (carefully!) to call a function with the number of arguments 
variable at run time. They only work in compiled code and arc not defined in the inteipreted 
Lisp environment. The preferred higher-level primitive is apply (page 47). 

%o pen-call-block junction n-adi- pairs destination 

Starts a call to function, n-adi-pairs is the number of pairs of additional information 
words already %push'cd; normally this should be 0. destination is where to put the 
result; the useful values are for the value to be ignored, 1 for the value to go onto the 
stack, 3 for the value to be the last argument to the previous open call block, and 2 for 
the value to be returned from this frame. 
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%push value 

Pushes value onto the stack. Use this to push the arguments. 

%act1vate-open-call- block 

Causes the call to happen. 

Xpop 

Pops the top value off of the stack and returns it as its value. Use this to recover the 
result from a call made by %open-call- block with a destination of 1. 

%assure-pdl-raom //- words 

Call this before doing a sequence of %push's or %open-call-block's that will add n- 
nvrds to the current frame. This subprimitivc checks that the frame will not exceed the 
maximum legal frame size, which is 255 words including all overhead. This limit is 
dictated by the way stack frames are linked together. If the frame is going to exceed the 
legal limit, %assure-pdl-room signals an error. 

15.14 Special-Binding Subprimitivc 

%bind locative value 

bind locative value 

Hinds die cell pointed to by locative to x, in the caller's environment. This function is 
not defined in the interpreted Lisp environment; it only works from compiled code. Since 
it turns into an instruction, the "caller's environment" really means "the binding block for 
the compiled function that executed the %bind instruction". The preferred higher-level 
primitives that turn into this are let (page 31), let-if (page 32), and progv (page 32). 

The binding is in effect for the scope of the innermost binding construct, such as prog or 
let— even one that binds no variables itself. 

%bind is die preferred name; bind is an older name which will eventually be eliminated. 

15.15 The Paging System 

[Someday this may discuss how it works.] 

sys:%d1sk- switches Variable 

This variable contains bits that control various disk usage features. 

Bit (the least significant bit) enables read-compares after disk read operations. This 
causes a considerable slowdown, so it is rarely used. 

Bit 1 enables read-compares after disk write operations. 

Bit 2 enables die multiple page swap-out feature. When this is enabled, as it is by 
default, each time a page is swapped out, up to 16. contiguous pages are also written out 
to the disk if they have been modified. This greatly improves swapping performance. 
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Hit 3 controls the multiple page swap-in feature, which is also on by default. This feature 
causes pages to be swapped in in groups; each time a page is needed, several contiguous 
pages are swapped in in the same disk operation. The number of pages swapped in can 
be specified for each area using si:set-swap-recommendations-of-area. 

s1 :set-swap-recommendat1ons-of-area area-number recommendation 

Specifies that pages of area area-number should be swapped in in groups of 
recommendation at a time. This recommendation is used only if the multiple page swap-in 
feature is enabled. 

Generally, the more memory a machine has, the higher the swap recommendations should 
be to get optimum performance. The recommendations arc set automatically according to 
the memory si/.e when the machine is booted. 

s1 : set-all -swap -re commendations recommendation 

Specifies the swap-in recommendation of all areas at once. 

s1: wire-page address &optiona1 (wire-p t) 

If wire-p is t, the page containing address is wired-down\ that is, it cannot be paged-out. 
If wire-p is nil, the page ceases to be wircd-down. 

s1 :unw1re-page address 

(si:unwire-page address) is the- same as (si:wire-page address nil). 

sys:page-1n-structure object 

Makes sure that the storage that represents object is in main memory. Any pages that 
have been swapped out to disk arc read in, using as few disk operations as possible. 
Consecutive disk pages are transferred together, taking advantage of the full speed of the 
disk. If object is large, this is much foster than bringing the pages in one at a time on 
demand. The storage occupied by object is defined by the %find -structure- leader and 
%structure-total-size subprimitives. 

sys: page- 1n -array array &optional from to 

This is a version of sys:page-in -structure that can bring in a portion of an array, from 
and to are lists of subscripts; if they are shorter than the dimensionality of array, the 
remaining subscripts are assumed to be zero. 

sys: page- In -pixel -array array &optional from to 

Like sys:page- in -array except that the lists from and to, if present, arc assumed to have 
their subscripts in the order horizontal, vertical, regardless of which of those two is 
actually the first axis of the array. See make-pixel -array, page 182. 

sys:page-1n-words address n-words 

Any pages that have been swapped out to disk in the range of address space starting at 
address and continuing for n-words are read in with as few disk operations as possible. 



PS:<LMAN>Fl)-SUB.TBXT.I9 8-JUN-84 



lie Paging System 286 I .isp Machine Manual 



sys:page-1n-area urea- number 
sys:page-in-reg1on region- number 

All swiippcd-out pages of the specified region or area arc brought into main memory. 

sys:page-out-structur© object 

sys : page-out-array array &optional from to 

sys :page-out-p1xel -array array &optional from to 

sys:pageout- words address n- words 

sys :page-out-area area-number 

sys: page-out-region region-number 

These are similar to the above, except that they take pages out of main memory rather 
than bringing them in. Actually, they only mark the pages as having priority for 
replacement by others. Use these operations when you are done with a large object, to 
make the virtual memory system prefer reclaiming that object's memory over swapping 
something else out. 

sys:%page-status virtual-address 

If the page containing virtual-address is swapped out, or if it is part of one of the low- 
numbered fixed areas, this returns nil. Otherwise it returns the entire first word of the 
page hash table entry for the page. 

The %%pht1 - symbols in SYS: SYS; QCOM LISP are byte specifiers you can use with 
%logldb for decoding the value. 

sys:%change-page-status virtual-address swap-status access- status-and-meta-bits 

The page hash table entry for the page containing virtual-address is found and altered as 
specified, t is returned if it was found, nil if it was not (presumably die page is swapped 
out), swap-status and access-status-and-meta-bits can be nil if those fields are not to be 
changed. This doesn't make any error checks; you can really screw things up if you call 
it with the wrong arguments. 

sys :%compute-page- hash virtual-address 

Makes the hashing function for the page hash table available to the user. 

sys :%phys1cal- address virtual-address 

Returns die physical address which virtual- address currently maps into. The value is 
unpredictable if the virtual page is not swapped in; Uierefore, this function should be 
used on wired pages, or you should do 
(without- interrupts 

(°/.p-pointer virtual-address) ;swapitin 

( sys rXphysical -address virtual -address) ) 

sys :%create-phys1cal -page physical-address 

This is used when adjusting the size of real memory available to the machine. It adds an 
entry for the page frame at physical- address to the page hash table, with virtual address 
-1, swap status flushablc, and map status 120 (read only). This doesn't make error 
checks; you can really screw things up if you call it with the wrong arguments. 
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sy s : %del e te- phy s i cal - page physical- address 

If there is a page in the page frame at physical- address, ii is swapped out and its entry is 
deleted from the page hash table, making that page frame unbailable for swapping in of 
pages in the future. This doesn't make error cheeks; you can really screw things up if 
you call it with the wrong arguments. 

sys:%d1sk- res tore high-16-bits hw-16-bits 

Loads virtual memory from the partition named by the concatenation of the two 16-bit 
arguments, and starts executing it. The name refers to the default load (the one the 
machine loads when it is started up). This is the primitive used by disk -restore (sec 
page 806). 

sys:%d1sk-save physical-mem-size high-lfr-bits hw-16-bits 

Copies virtual memory into the partition named by the concatenation of the two 16-bit 
arguments (0 means the default), then restarts the world, as if it had just been restored. 
The physical-mem-size argument should come from %sys- com -memory -size in system-, 
communication -area. If physical-mem-size is negative, it is minus the memory size, and 
an incremental save is done. This is the primitive used by disk-save (see page 807). 

s1 :set-memory-s1ze mvords 

Specifics the size of physical memory in words. The .I. isp -machine determines the actual 
amount of physical memory when it is booted, but with this function you can tell it to 
use less memory than is actually present. This may be useful for comparing performance 
based on the amount of memory. 

15.16 Closure Subprimitives 

These functions deal with tilings like what closures deal with: the distinction between internal 
and external value cells and control over how they work. 

sys:%b1nd1ng- Instances list-of- symbols 

This is the primitive that could be used by closure. First, if any of the symbols in list- 
of-symbols has no external value cell, a new external value cell is created for it, with the 
contents of the internal value cell. Then a list of locatives, twice as long as list-of- 
symbols, is created and returned. The elements are grouped in pairs: pointers to the 
internal and external value cells, respectively, of each of the symbols, closure could have 
been defined by: 

(defun closure (variables function) 
(Xmake-pointer dtp-closure 

(cons function (sys:'/ binding-instances variables)))) 

sys:%us1ng-b1nd1ng-instances instance-list 

This function is the primitive operation that invocation of closures could use. It takes a 
list such as sys:%binding-instances returns, and for each pair of elements in the list, it 
"adds" a binding to the current stack frame, in the same manner that the %bind function 
docs. These bindings remain in effect until the frame returns or is unwound. 
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sys:%using -binding -instances checks for redundant bindings and ignores them. (A 
binding is redundant if the symbol is already bound to the desired external value cell.) 
This check avoids excessive growth of the special pdl in some cases and is also made by 
the microcode which invokes closures, entities, and instances. 

Given a closure, closure-bindings extracts its list of binding instances, which you can 
then pass to sys:%using -binding -instances. 

sys:%1nternal value-cell symbol 

Returns the contents of the internal \alue cell of symbol, dtp - one- q- forward pointers 
arc considered invisible, as usual, but dtp-external -value-cell-pointers arc not: this 
function can return a dtp-external-value-cell-pointer. Such pointers will be considered 
invisible as soon as they leave the "inside of the machine", meaning internal registers and 
the stack. 

15.17 Distiguishing Processor Types 

The MIT Lisp Machine system runs on two types of processors: the CADR and the Lambda. 
These arc similar enough that there is no difference in compiled code for them, and no provision 
for compilc-time conditionalization. However, obscure or internal I/O code sometimes needs to 
behave differently at run-time depending on the type of processor. This is possible through the 
use of these macros. 

sys: processor-type-code Variable 

This variable is 1 on a CADR processor or equivalent, 2 on a Lambda. 

1f-1n-cadr body... Macro 

Executes body only when executing on a CADR. 

1f-1n-lambda-&wfr Macro 

Executes body only when executing on a Lambda. 

1f-1n-cadr-else- lambda if-cadr-fonn else-body... Macro 

Executes if-cadr-form when executing on a CADR, executes else-body when executing on a 
Lambda. 

(format t "~&Processor is a ~A.~%" 

(if-in-cadr-else-lambda "CADR" "Lambda")) 

1f-1n-lambda-else-cadr if- lambda- form else-body... Macro 

Executes if-cadr-form when executing on a Lambda executes else-body when executing on a 
CADR. 

select-processor clauses Macro 

Each clause consists of :cadr or .-lambda followed by forms to execute when running on 
that kind of processor. Example: 
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(format t "~&Processor is a ~A.~7 U " 
( select- processor 
( :cadr "CADR") 
( : lambda "Lambda"))) 

15.18 Microcode Variables 

The following variables' values actually reside in the scratchpad memory of the processor. 
They arc put there by dtp -one -q- forward invisible pointers. The values of these variables arc 
used by the microcode. Many of these variables are highly internal and you shouldn't expect to 
understand them. 

%m1crocode- version-number Variable 

This is the version number of the currently-loaded microcode, obtained from the version 
number of the microcode source file. 

sys:%number~of -micro-entries Variable 

Size of micro -code -entry -area and related areas. 

default-cons-area is documented on page 297. 

sys:number-cons~area Variable 

The area number of the area where bignums, ratios, full-size floats and complcxnums are 
conscd. Normally this variable contains the value of sys:extra-pdl-area, which enables 
the "temporary storage" feature for numbers, saving garbage collection overhead. 

current-stack-group and current-stack-group-resumer arc documented on page 258. 

sys:%current-stack-group-state Variable 

The sg -state of the currently-running stack group. 

sys:%current-stack-group-caTI1ng-args-po1nter Variable 

The argument list of the currently-running stack group. 

sys:%current-stack-group-call1ng-args-number Variable 

The number of arguments to the currently-running stack group. 

sys:%trap-m1cro-pc Variable 

The microcode address of the most recent error trap. 

sys:%1n1t1al-fef Variable 

The function that is called when the machine starts up. Normally this is the definition of 
si:lisp-top-level. 
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sys:%1n1t1al stack- group Variable 

The slack group in which the machine starts up. Normally this is the initial Lisp listener 
window's process's slack group. 

sys:%error-hand1er-stack -group Constant 

The stack group that receives control when a microcode-detected error occurs. This stack 
group cleans up. signals the appropriate condition, or assigns a stack group to run the 
debugger on the erring stack group. 

sys:%scheduler-stack-group Constant 

The stack group that receives control when a sequence break occurs. 

sys:%chaos-csr- address Constant 

A fixnum, the virtual address that maps to the Unions location of the Chaosnet interface. 

%mar-low Variable 

A fixnum, the inclusive lower bound of the region of virtual memory subject to die MAR 
feature (sec section .30.13, page 750). 

%mar-h1gh Variable 

A fixnum, the inclusive upper bound of the region of virtual memory subject to the MAR 
feature (sec section 30.13, page 750). 

sys:%1nh1b1t-read-only Variable 

If non-nil, you can write into read-only areas. This is used by fasload. 

self is documented on page 420. 

inhibit-scheduling-flag is documented on page 685. 

1nh1b1t-scaveng1ng-flag Variable 

If non-nil, the scavenger is turned off. The scavenger is the quasi-asynchronous portion of 
the garbage collector, which nonnally runs during consing operations. 

sysrscavenger-ws-enable Variable 

If this is nil, scavenging can compete for all of the physical memory of the machine. 
Otherwise, it should be a fixnum, which specifics how much physical memory the 
scavenger can use: page numbers as high as this number or higher are not available to it. 

sys:%reg1 on- cons -alarm Variable 

Increments whenever a new region is allocated. 

sys:%page-cons-alarm Variable 

Increments whenever a new page is allocated. 
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sy s : % g c - f 1 1 p - r e ady Variable 

t while the scavenger is running, nil when there are no pointers to oldspace. 

sys :%gc-generat1on-number Variable 

A fixnum which is incremented whenever the garbage collector (lips, converting one or 

more regions from newspace to oldspace. If this number has changed, the %pointer of 
an object may have changed. 

sys :%d1sk- run- light Constant 

A fixnum, the virtual address of the TV buffer location of the run-light which lights up 
when the disk is active. This plus 2 is the address of the run-light for the processor. 
This minus 2 is the address of the run-light for the garbage collector. 

sys:%loaded-band Variable 

A fixnum, the high 24 bits of the name of the disk partition from which virtual memory 
was booted. Used to create the greeting message. 

sys:%d1sk-blocks-per-track Variable 

sys:%d1sk-b1ocks-per-cyl1nder Variable 

Configuration of the disk being used for paging. Don't change these! 

sys:%disk -switches is documented on page 284. 

sys:%qlaryh Variable 

This is die last array to be called as a function, remembered for the sake of the function 
store. 

sys:%qlaryl Variable 

This is the index used the last time an array was called as a function, remembered for 
the sake of the function store. 

sys:%mc-code-ex1t-vectoP Variable 

This is a vector of pointers that microcompiled code uses to refer to quoted constants. 

sys: currently-prepared-sheet Variable 

Used for communication between the window system and the microcoded graphics 
primitives. 

alphabetic-case-affects-string-comparison is documented on page 218. 

sys:tail-recursion-flag is documented on page 55. 

zunderflow is documented on page 137. 

The next four have to do with implementing the metering system described in section 35.3, page 
787. 
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sys:7 meter global -en able Variable 

t if the metering system is turned on for all stack-groups. 

sys :%meter-buf f er-polnter Variable 

A temporary buffer used by the metering system. 

sys:%meter-d1sk-address Variable 

Where the metering system writes its next block of results on the disk. 

sys :%meter-d1sk-count Variable 

The number of disk blocks remaining for recording of metering information. 

sys: lexical -environment Variable 

This is the static chain used in the implementation of lexical scoping of variable bindings 
in compiled code. 

sys:amem-evcp-vector Variable 

No longer used. 

background -cons- area is documented on page 297. 

sys:self -mapping -table is documented on page 442. 

sys:processor-type-code is documented on page 288. 

sys:a-memory-locat1on-names Constant 

A list of all of the above symbols (and any others added after this documentation was 
written). 

15.1.9 Microcode Meters 

Microcode meters are locations in the scratchpad memory which contain numbers. Most of 
them arc used to count events of various sorts. They are accessible only through the functions 
read -meter and write- meter. They have nothing to do with the Lisp metering tools. 

read -meter name 

Returns the contents of the microcode meter named name, which can be a fixnum or a 
bignum. name must be one of the symbols listed below. 

write -meter name value 

Writes value, a fixnum or a bignum, into the microcode meter named name, name must 
be one of the symbols listed below. 

The microcode meters are as follows: 
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sys:%count chaos transmlt-aborts Meter 

The number of times transmission on the Chaosnct was aborted, cither by a collision or 
because the receiver was busy. 

sys:%count~cons-work Meter 

sys:%count-scavenger-work Meter 

Internal state of the garbage collection algorithm. 

sys:%tv-clock-rate Meter 

I'he number of TV frames per clock sequence break. The default value is 67., which 
causes clock sequence breaks to happen about once per second. 

sys:%count-first level-map reloads Meter 

The number of times the first-level virtual-memory map was invalid and had to be 
reloaded from the page hash tabic. 

sys:%count-second-leve1 -map-reloads Meter 

The number of times the second-level virtual-memory map was invalid and had to be 
reloaded from the page hash table. 

sys:%count-meta-b1ts-map-reloads Meter 

The number of times the virtual address map was reloaded to contain only "mcta bits", 
not an actual physical address. 

sys:%count-pdl -buffer-read-faults Meter 

The number of read references to the pdl buffer that were virtual memory references that 
trapped. 

sys:%count-pdl-buffer-wr1te-faults Meter 

The number of write references to the pdl buffer that were virtual memory references that 
trapped. 

sys:%count-pdl -buffer-memory-faults Meter 

The number of virtual memory references that trapped in case they should have gone to 
the pdl buffer, but turned out to be real memory references after all (and therefore were 
needlessly slowed down). 

sys:%count-d1sk-page-reads Meter 

The number of pages read from the disk. 

sys:%count-d1sk-page-wr1tes Meter 

The number of pages written to the disk. 

sys:%count-fresh -pages Meter 

The number of fresh (ncwly-conscd) pages created in core, which would have otherwise 
been read from the disk. 
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sys:%count-d1sk-page-readoperat1ons Meter 

The number of paging read operations; this can be smaller than the number of disk pages 
read when more than one page at a time is read. 

sys:%count-disk-page-wrTte-operat1ons Meter 

The number of* paging write operations; this can be smaller than the number of disk 
pages written when more than one page at a time is written. 

sys:%count-d1sk-prepages~used Meter 

The number of times a page was used after being read in before it was needed. 

sys:%count-d1sk-prepages-not-used Meter 

The number of times a page was read in before it was needed, but got evicted before it 
was ever used. 

sys:%count-d1sk-page-wMte-waits Meter 

The number of times the machine waited for a page to finish being written out in order 
to evict the page. 

sys:%count-d1sk-page-wr1te-busy$ Meter 

The number of times the machine waited for a page to finish being written out in order 
to do something else with the disk. 

sys:%disk-wa1t-t1me Meter 

The time spent waiting for the disk, in microseconds. lTiis can be used to distinguish 

paging time from running time when measuring and optimizing the' performance of 
programs. 

sys:%count-d1sk-errors Meter 

The number of recoverable disk errors. 

sys:%count-d1sk- recalibrates Meter 

The number of times the disk seek mechanism was recalibrated, usually as part of error 
recovery. 

sys:%count-d1sk-ecc-corrected-errors Meter 

The number of disk errors that were corrected through the error correcting code. 

sys:%count-d1sk-read-compare-d1fferences Meter 

The number of times a read compare was done, no disk error occurred, but the data on 
disk did not match the data in memory. 

sys:Xcount-d1sk-read-compare-rereads Meter 

The number of times a disk read was done over because after the read a read compare 
was done and did not succeed (cither it got an error or the data on disk did not match 
the data in memory). 
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sys:%countd1sk~read-compare-rewr1tes Meter 

The number of times a disk write was dune over because after the write a read compare 
was done and did not succeed (either it got an error or the data on disk did not match 
the data in memory). 

sys:%d1sk-error-1og-pointer Meter 

Address of the next entry to be written in the disk error log. The function si:print-disk- 
error-log (see page 794) prints this log. 

sys:%cpunt-aged-pages Meter 

The number of times the page agcr set an age trap on a page, to determine whether it 
was being referenced. 

sys:%count-age-f lushed-pages Meter 

The number of times the page agcr saw that a page still had an age trap and hence made 
it "IHishablc", a candidate for eviction from main memory. 

sys:%ag1ng-depth Meter 

A number from to 3 that controls how long a page must remain unreferenced before it 
becomes a candidate for eviction from main memory. 

sys:%count-f1ndcore-steps Meter 

The number of pages inspected by the page replacement algorithm. 

sys:%count-f Indcore-emergendes Meter 

r J\c number of times no cvictablc page was found and extra aging had to be done. 

sys:a-memory-counter-b1ock-namas Constant 

A list of all of die above symbols (and any others added after this documentation was 
written). 

15.20 Miscellaneous Subprimitives 

sys:%halt 

Stops the machine. 
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